home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 5-Fonts & Software / Demo Software / Aldus PageMaker 4.0 Demo / PM4 RSRC / PM4 RSRC.rsrc / STR#_20737.txt < prev    next >
Text File  |  1990-05-16  |  1KB  |  81 lines
  1. DFLT
  2.  
  3.  
  4.  
  5.  
  6.  
  7. /imbuf w bits mul 3 mul 7 add 8 idiv string def 
  8. x0 y0 translate w h bits [sx 0 0 sy 0 0] 
  9. {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} false 3 colorimage 
  10. } def    
  11.  
  12.  
  13. /S_RGBIMAGE    {    
  14. /bits exch def 
  15. /h exch def    /w exch def 
  16. /dh exch def    /dw exch def 
  17. /y0 exch def    /x0 exch def 
  18. /AsBin exch def 
  19. /sx w dw div def 
  20. /sy h dh div def 
  21.  
  22.  
  23. 3 add index exch 2 add index dup
  24. 4 1 roll sub mul add
  25. counttomark 1 add 1 roll cleartomark}
  26.  
  27.  
  28.  
  29. counttomark dup 3 add -1 roll exch
  30. 2 sub mul dup floor cvi
  31. dup 3 1 roll sub exch dup
  32.  
  33.  
  34. {exch pop abs 1 exch sub}
  35.  
  36.  
  37.  { abs exch abs 2 copy add 1 gt {1 sub dup mul  exch 1 sub dup mul add 1 sub }{ dup mul exch  dup mul add 1 exch sub } ifelse } 
  38.  
  39.  /imbuf w bits mul 7 add 8 idiv string def 
  40.  x0 y0 translate w h bits [sx 0 0 sy 0 0] 
  41.  {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} 
  42.  
  43.  /sx w dw div def 
  44.  /sy h dh div def 
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  /bits exch def 
  56.  /h exch def    /w exch def 
  57.  /dh exch def    /dw exch def 
  58.  /y0 exch def    /x0 exch def 
  59.  /AsBin exch def 
  60.  
  61.  
  62.  /S_IMAGEV3    {    
  63.  
  64.  
  65. /imbuf w 7 add 8 idiv string def 
  66. x0 y0 translate w h inv [sx 0 0 sy 0 0] 
  67. {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} imagemask 
  68. } def    
  69.  
  70.  
  71. /S_IMAGEMASKV3    {    
  72. /inv exch def 
  73. /h exch def    /w exch def 
  74. /dh exch def    /dw exch def 
  75. /y0 exch def    /x0 exch def 
  76. /AsBin exch def 
  77. /sx w dw div def 
  78. /sy h dh div def 
  79.  
  80.  
  81.